From 504ad0bf6c2655f9efb67ddff6e5e1d5d96b83f3 Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Mon, 23 Jul 2007 19:44:56 +0000 Subject: [PATCH] (vc-stay-local-p): Fix bug: Avoid remove-if-not. Also, if FILE is a list, return non-nil if any of its elements should stay local. Update docstring. --- lisp/vc-hooks.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el index cd5d8db7b0f..2d3a0886c22 100644 --- a/lisp/vc-hooks.el +++ b/lisp/vc-hooks.el @@ -159,9 +159,11 @@ by these regular expressions." (defun vc-stay-local-p (file) "Return non-nil if VC should stay local when handling FILE. -This uses the `repository-hostname' backend operation." +This uses the `repository-hostname' backend operation. +If FILE is a list of files, return non-nil if any of them +individually should stay local." (if (listp file) - (if (remove-if-not (lambda (x) (not (vc-stay-local-p x))) file) 'no 'yes) + (delq nil (mapcar 'vc-stay-local-p file)) (let* ((backend (vc-backend file)) (sym (vc-make-backend-sym backend 'stay-local)) (stay-local (if (boundp sym) (symbol-value sym) t))) @@ -732,7 +734,7 @@ visiting FILE." (propertize ml-string 'mouse-face 'mode-line-highlight - 'help-echo + 'help-echo (concat (if ml-echo ml-echo (format "File under the %s version control system" @@ -787,7 +789,7 @@ This function assumes that the file is registered." ;; for 'needs-patch and 'needs-merge. (setq state-echo "Locally modified file") (concat backend ":" rev))) - 'help-echo (concat state-echo " under the " backend + 'help-echo (concat state-echo " under the " backend " version control system")))) (defun vc-follow-link () -- 2.30.2